#!/usr/bin/perl -w

sub mysub;

mysub "a","b",$c;

sub mysub {
        my ($a, $b) = @_;
        @_[2] =~ s/e/X/g;
        print $a . ":" . $b . ":" . @_[2] . "\n";
}

$c = "Wetter";
mysub "test", "hallo", $c;
print "Hauptprogramm: $c\n";

